0 X=RND(-TI) 1 PRINT"[147]":POKE53281,0:POKE53280,0:PRINTCHR$(14) 2 V=53248:POKE2040,11:POKE2041,13:POKE2042,14:POKE2043,15 5 DIMS(5,62),C$(69),C(69),NA(69),X(69),Y(69),D(69,4),RI(69),H(69) 6 S=1:C=INT(68*RND(1))+1:R=C+35:IFR>69THEN6: 7 FORT=1TO69:H(T)=INT(RND(1)*4)+4:NEXT:SD=1:TI$="000000" 8 DEFFNX(X)=INT(VAL(TI$)^.53435) 10 :FORN=0TO62:READQ:POKE11*64+N,Q:NEXT 11 :FORN=0TO62:READQ:POKE13*64+N,Q:NEXT 12 :FORN=0TO62:READQ:POKE14*64+N,Q:NEXT 13 :FORN=0TO62:READQ:POKE15*64+N,Q:NEXT 100 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 101 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,0,0,128,0,0 102 DATA0,0,0,0,0,0,0,0,0,85,1,84,127,87,244,106,254,164,127,171,244,127,255 103 DATA208,106,254,144,127,171,208,127,255,244,106,254,164,127,171,244,85 104 DATA253,84,64,84,0,64,0,0,64,0,0,64,0,0,64,0,0,64,0,0,64,0,0 105 DATA0,0,0,0,0,0,0,0,0,64,85,84,85,255,244,127,170,144,106,255,208,127,255 106 DATA208,127,170,144,106,255,244,127,255,244,127,170,164,106,255,244,127 107 DATA85,84,85,0,0,64,0,0,64,0,0,64,0,0,64,0,0,64,0,0,64,0,0 108 DATA0,0,0,0,0,0,0,0,0,85,84,0,127,253,84,106,171,244,127,254,164,127,255 109 DATA244,106,171,244,127,254,164,127,255,244,106,171,244,127,254,164,85 110 DATA87,244,64,1,84,64,0,0,64,0,0,64,0,0,64,0,0,64,0,0,64,0,0 120 C$(1)="[194]OSTON ":C(1)=2:X(1)=251:Y(1)=171 122 C$(2)="[200]ARTFORD ":C(2)=1:X(2)=245:Y(2)=178 123 C$(3)="[206][197][215] [217][207][210][203] ":C(3)=2:X(3)=238:Y(3)=184 124 C$(4)="[206]EWARK ":C(4)=1:X(4)=237:Y(4)=181 125 C$(5)="[193]LBANY ":C(5)=1:X(5)=238:Y(5)=170 126 C$(6)="[205]ONTREAL ":C(6)=1:X(6)=233:Y(6)=152 127 C$(7)="[208]HILADELPHIA":C(7)=1:X(7)=234:Y(7)=189 128 C$(8)="[208]ORTSMOUTH ":C(8)=1:X(8)=234:Y(8)=209 129 C$(9)="[194]ALTIMORE ":C(9)=2:X(9)=229:Y(9)=194 130 C$(10)="[210]ICHMOND ":C(10)=1:X(10)=228:Y(10)=204 131 C$(11)="[215]ASHINGTON ":C(11)=1:X(11)=228:Y(11)=197 132 C$(12)="[207]TTAWA ":C(12)=1:X(12)=225:Y(12)=159 133 C$(13)="[210]ALEIGH ":C(13)=1:X(13)=225:Y(13)=216 134 C$(14)="[210]OCHESTER ":C(14)=2:X(14)=221:Y(14)=172 135 C$(15)="[199]REENSBORO ":C(15)=1:X(15)=220:Y(15)=215 136 C$(16)="[210]OANOKE ":C(16)=3:X(16)=217:Y(16)=209 137 C$(17)="[194]UFFALO ":C(17)=2:X(17)=216:Y(17)=173 138 C$(18)="[195]HARLOTTE ":C(18)=1:X(18)=214:Y(18)=222 139 C$(19)="[212]ORONTO ":C(19)=2:X(19)=211:Y(19)=168 140 C$(20)="[200]AMILTON ":C(20)=1:X(20)=211:Y(20)=172 141 C$(21)="[208]ITTSBURGH ":C(21)=1:X(21)=212:Y(21)=189 142 C$(22)="[197]RIE ":C(22)=2:X(22)=210:Y(22)=181 143 C$(23)="[195]HARLESTON ":C(23)=1:X(23)=206:Y(23)=204 144 C$(24)="[195]LEVELAND ":C(24)=2:X(24)=203:Y(24)=185 145 C$(25)="[204]ONDON ":C(25)=1:X(25)=203:Y(25)=175 146 C$(26)="[203]NOXVILLE ":C(26)=3:X(26)=195:Y(26)=218 147 C$(27)="[212]OLEDO ":C(27)=1:X(27)=193:Y(27)=184 148 C$(28)="[196]ETROID ":C(28)=2:X(28)=198:Y(28)=183 149 C$(29)="[198]LINT ":C(29)=1:X(29)=193:Y(29)=179 150 C$(30)="[195]INCINATTI ":C(30)=1:X(30)=192:Y(30)=200 151 C$(31)="[196]AYTON ":C(31)=1:X(31)=192:Y(31)=197 152 C$(32)="[204]OUISVILLE ":C(32)=1:X(32)=186:Y(32)=208 153 C$(33)="[198]ORT [215]AYNE ":C(33)=1:X(33)=185:Y(33)=190 154 C$(34)="[201]NDIANAPOLIS":C(34)=1:X(34)=185:Y(34)=199 155 C$(35)="[199]RAND [210]APIDS":C(35)=1:X(35)=184:Y(35)=179 156 C$(36)="[206]ASHVILLE ":C(36)=3:X(36)=181:Y(36)=219 157 C$(37)="[197]VANSVILLE ":C(37)=1:X(37)=179:Y(37)=208 158 C$(38)="[195]HICAGO ":C(38)=2:X(38)=175:Y(38)=183 159 C$(39)="[205]ILWAUKEE ":C(39)=2:X(39)=174:Y(39)=178 160 C$(40)="[210]OCKFORD ":C(40)=1:X(40)=169:Y(40)=182 161 C$(41)="[205]EMPHIS ":C(41)=1:X(41)=166:Y(41)=225 162 C$(42)="[208]EORIA ":C(42)=1:X(42)=166:Y(42)=192 163 C$(43)="[211]T.[204]OUIS ":C(43)=1:X(43)=162:Y(43)=206 164 C$(44)="[212]HUNDER [194]AY ":C(44)=2:X(44)=165:Y(44)=145 165 C$(45)="[211]T.[208]AUL ":C(45)=1:X(45)=151:Y(45)=164 166 C$(46)="[205]INNEAPOLIS ":C(46)=1:X(46)=148:Y(46)=165 167 C$(47)="[196]ES [205]OINES ":C(47)=1:X(47)=147:Y(47)=185 168 C$(48)="[203]ANSAS [195]ITY ":C(48)=1:X(48)=140:Y(48)=202 169 C$(49)="[212]OPEKA ":C(49)=1:X(49)=136:Y(49)=203 170 C$(50)="[207]MAHA ":C(50)=1:X(50)=135:Y(50)=188 171 C$(51)="[212]ULSA ":C(51)=1:X(51)=134:Y(51)=218 172 C$(52)="[215]INNIPEG ":C(52)=1:X(52)=133:Y(52)=134 173 C$(53)="[204]INCOLN ":C(53)=1:X(53)=132:Y(53)=191 174 C$(54)="[215]ICHITA ":C(54)=1:X(54)=128:Y(54)=210 175 C$(55)="[207]KLAHOMA [195]. ":C(55)=1:X(55)=127:Y(55)=223 176 C$(56)="[210]EGINA ":C(56)=1:X(56)=106:Y(56)=125 177 C$(57)="[193]MARILLO ":C(57)=3:X(57)=105:Y(57)=221 178 C$(58)="[211]ASKATOON ":C(58)=1:X(58)=100:Y(58)=116 179 C$(59)="[196]ENVER ":C(59)=3:X(59)=093:Y(59)=192 180 C$(60)="[208]UEBLO ":C(60)=3:X(60)=093:Y(60)=200 181 C$(61)="[195]OLORADO ":C(61)=3:X(61)=092:Y(61)=196 182 C$(62)="[197]DMONTON ":C(62)=1:X(62)=077:Y(62)=104 183 C$(63)="[195]ALGARY ":C(63)=3:X(63)=070:Y(63)=118 184 C$(64)="[211].[204]AKE [195]ITY ":C(64)=2:X(64)=063:Y(64)=182 185 C$(65)="[211]POKANE ":C(65)=3:X(65)=050:Y(65)=135 186 C$(66)="[194]OISE ":C(66)=3:X(66)=049:Y(66)=158 187 C$(67)="[204]AS [214]EGAS ":C(67)=3:X(67)=039:Y(67)=209 188 C$(68)="[211]EATTLE ":C(68)=2:X(68)=031:Y(68)=127 189 C$(69)="[212]ACOMA ":C(69)=2:X(69)=029:Y(69)=131 190 PRINT"[147] [208][196] - [211]OFTWARE " 200 FORT=1TO69:FORN=1TO4:READD(T,N):NEXT:NEXT 201 DATA2,5,3,6 202 DATA1,3,5,4 203 DATA1,2,4,7 204 DATA2,3,5,7 205 DATA1,2,4,6 206 DATA1,5,12,14 207 DATA4,3,9,21 208 DATA10,11,13,16 209 DATA7,21,11,14 210 DATA8,11,16,23 211 DATA9,10,8,21 212 DATA6,14,19,17 213 DATA8,18,15,16 214 DATA12,6,9,17 215 DATA13,16,23,18 216 DATA10,8,13,15 217 DATA14,12,22,20 218 DATA15,13,23,26 219 DATA12,20,25,22 220 DATA19,17,25,22 221 DATA7,9,11,24 222 DATA20,19,17,24 223 DATA10,15,18,30 224 DATA22,21,28,27 225 DATA19,20,28,29 226 DATA18,36,30,32 227 DATA24,28,29,31 228 DATA25,24,27,29 229 DATA25,28,27,35 230 DATA26,23,31,32 231 DATA27,33,34,30 232 DATA30,37,36,26 233 DATA35,31,34,38 234 DATA33,31,37,42 235 DATA29,33,38,39 236 DATA26,32,37,41 237 DATA36,32,34,43 238 DATA35,40,42,33 239 DATA35,45,40,42 240 DATA39,45,47,33 241 DATA36,43,48,51 242 DATA43,34,38,39 243 DATA42,37,41,48 244 DATA47,45,46,52 245 DATA39,40,46,44 246 DATA45,44,47,50 247 DATA44,40,50,46 248 DATA41,43,49,53 249 DATA53,48,51,54 250 DATA46,47,53,59 251 DATA41,49,54,55 252 DATA44,58,56,66 253 DATA50,48,49,54 254 DATA49,51,53,59 255 DATA51,61,60,57 256 DATA52,58,62,63 257 DATA55,59,60,67 258 DATA52,56,63,62 259 DATA50,54,57,61 260 DATA55,57,67,61 261 DATA60,64,59,55 262 DATA58,56,63,68 263 DATA62,58,56,65 264 DATA61,67,66,65 265 DATA63,64,66,68 266 DATA52,64,68,65 267 DATA57,60,64,69 268 DATA65,66,69,62 269 DATA68,67,66,65 280 :PRINT"[147]":FORT=1TO2000:NEXT 281 I$="[197][202][199][200]":I2$="5367":FORT=1TO4:CO$=CO$+MID$(I$,T,1)+MID$(I2$,T,1):NEXT 282 I1$=LEFT$(CO$,4):I2$=RIGHT$(CO$,4):CO$=I2$+I1$ 283 REM" 300 [141]2000:M[178]1:[141]3000 309 [153]"" 313 :[153]""SD 320 :[153]"ON"SP"$" 321 :[153]""KM"(null)M" 322 :[153]"ON"[165]X(1)"CMD LENT " 330 P[178][194](56320):[151]V[170]21,1:[151]V[170]39,1 331 [139](P [175] 1)[178]0[167]M[178]M[171]1:[139]M[178]0[167]M[178]1 332 [139](P [175] 2)[178]0[167]M[178]M[170]1:[139]M[178]4[167]M[178]3 343 [139](P [175] 16)[178]0 [175] M[178]1[167][141]2000:[151]V[170]21,0 344 [139](P [175] 16)[178]0 [175] M[178]2[167][141]4000:[151]V[170]21,0 345 [139](P [175] 16)[178]0 [175] M[178]3[167][141]5000:[151]V[170]21,0 346 [139]M[178]1[167]M1[178]120 347 [139]M[178]2[167]M1[178]136 348 [139]M[178]3[167]M1[178]152 350 [151]V[170]1,M1:[151]V,115 399 [137]309 1999 [128] 2000 [151]V[170]21,0:[141]51000:[129]T[178]1[164]1000:[130] 2010 [151]V[170]2,X(C):[151]V[170]3,Y(C) 2011 [151]V[170]4,X(C):[151]V[170]5,Y(C) 2012 [151]V[170]6,X(C):[151]V[170]7,Y(C) 2013 [151]V[170]28,255:[151]V[170]39,1:[151]V[170]40,1:[151]V[170]41,1:[151]V[170]42,1:[151]V[170]37,0: 2014 [151]V[170]38,7:[151]V,X(S):[151]V[170]1,Y(S):[151]V[170]21,3 2030 P[178][194](56320) 2031 [139](P [175] 4)[178]0[167]S[178]S[170]1:[139]S[178]70[167]S[178]1 2032 [139](P [175] 8)[178]0[167]S[178]S[171]1:[139]S[178]0[167]S[178]69 2033 [151]V,X(S):[151]V[170]1,Y(S) 2034 [139](P [175] 16)[178]0[167][151]V[170]21,0:[141]51300:[142] 2035 :[153]"SYS(null)EFT/(null)IGHT (null)TADT :";C$(S)" " 2050 [151]V[170]21,3:[151]V[170]39,0:[129]T[178]1[164]100:[130] 2051 [151]V[170]21,5:[151]V[170]39,1:[129]T[178]1[164]100:[130] 2052 [151]V[170]21,9:[151]V[170]39,4:[129]T[178]1[164]100:[130] 2060 [137]2030 3000 [143] PRUEFER 3999 [142] 4000 [151]V[170]21,0: [141]52000:[153]"" 4010 [129]T[178]1[164]H(C):[153]"ON"[163]33)T"CMD.":[129]N[178]1[164](5000[172][187](1)):[130]: 4020 [139][181]([187](1)[172]3)[178]1 [175]NA(C)[179][177]0[167]4100 4030 [130]: 4040 [153]"LOAD (null)UT MIR SEHR LEID,ABER IN " 4041 [153]" KEINEM LEFT$OTEL DIESER (null)TADT SCHEINT " 4042 [153]" (null)EBECCA GEWOHNT ZU HABEN." 4050 [139]([194](56320) [175] 16)[179][177]0[167]4050 4051 [141]51300: [142] 4100 T[178]0:N[178]0:[141]52300:[153]"";NA(C);"LENT." 4110 [153]"";C$(D(C,RI(C)))"." 4200 [139](([194](56320)) [175] 16)[179][177]0[167]4200 4210 [141]51300:[142] 5000 [143] REISEN 5010 [151]V[170]21,0:[141]51600:M[178]1 5020 [153]"SYS":[129]T[178]1[164]4:[153]""C$(D(C,T)):[130] 5021 [153]"(null)URUECK ZUM (null)ENUE" 5100 P[178][194](56320) 5110 [139](P [175] 1)[178]0[167]M[178]M[171]1:[139]M[178]0[167]M[178]1 5120 [139](P [175] 2)[178]0[167]M[178]M[170]1:[139]M[178]6[167]M[178]5 5130 [139]M[178]1[167]M1[178]176 5131 [139]M[178]2[167]M1[178]184 5132 [139]M[178]3[167]M1[178]192 5133 [139]M[178]4[167]M1[178]200 5135 [139]M[178]5[167]M1[178]208 5140 [139](P [175] 16)[178]0 [175]M[178]5[167]M[178]1:[151]V[170]21,0:[141]51300:[142] 5150 [139](P [175] 16)[178]0 [167]5300 5200 [151]V[170]21,1:[151]V[170]39,1:[151]V,30:[151]V[170]1,M1:[137]5100 5300 [151]V[170]21,0:[141]51000:[151]V[170]2,X(C):[151]V[170]4,X(C):[151]V[170]6,X(C) 5301 :[151]V[170]3,Y(C):[151]V[170]5,Y(C):[151]V[170]7,Y(C):[151]V,X(C):[151]V[170]1,Y(C):[151]V[170]39,0 5305 M[178]D(C,M) 5310 KM[178]KM[170][181](([186](([182](X(C)[171]X(M)))[174]2[170]([182](Y(C)[171]Y(M)))[174]2))[172]18.182) 5320 SP[178][181](KM[172].3) 5330 [151]V[170]21,3:S1[178]1 5340 [139][182](X(C)[171]X(M))[179][182](Y(C)[171]Y(M))[167]5500 5350 [139]X(C)[177]X(M)[167]S1[178][171]1 5351 S2[178][182](Y(C)[171]Y(M))[173][182](X(C)[171]X(M)):Y[178]Y(C) 5355 [139]Y(C)[177]Y(M)[167]S2[178][171]S2 5360 [129]X[178]X(C)[164]X(M)[169]S1:Y[178]Y[170]S2 5370 [151]V,X:[151]V[170]1,Y:[151]V[170]21,3:[129]T[178]1[164]100:[130]: 5371 [151]V[170]21,5:[151]V[170]39,1:[129]T[178]1[164]100:[130]: 5372 [151]V[170]21,9:[151]V[170]39,2:[129]T[178]1[164]100:[130]:[130] 5400 [137]5600 5500 S2[178]1: [139]Y(C)[177]Y(M)[167]S2[178][171]1 5551 S1[178][182](X(C)[171]X(M))[173][182](Y(C)[171]Y(M)):X[178]X(C) 5555 [139]X(C)[177]X(M)[167]S1[178][171]S1 5560 [129]Y[178]Y(C)[164]Y(M)[169]S2:X[178]X[170]S1 5570 [151]V,X:[151]V[170]1,Y:[151]V[170]21,3:[129]T[178]1[164]100:[130]: 5571 [151]V[170]21,5:[151]V[170]39,1:[129]T[178]1[164]100:[130]: 5572 [151]V[170]21,9:[151]V[170]39,2:[129]T[178]1[164]100:[130]:[130] 5600 C[178]M:[139][187](1)[177].3[167]R1[178][181](4[172][187](1))[170]1:NA(R)[178][165]X(1):RI(R)[178]R1:[137]5605 5604 [137]5610 5605 R[178]D(R,R1): 5610 [153]""C$(C)"" 5620 [151]V[170]39,1:[151]V[170]2,X:[151]V[170]4,X:[151]V[170]6,X:[151]V[170]3,Y:[151]V[170]5,Y:[151]V[170]7,Y 5621 [151]V,X:[151]V[170]1,Y 5622 SD[178]SD[170]1 5630 [143] 5631 [151]V[170]21,3:[129]N[178]1[164]100:[130] 5632 [151]V[170]21,5:[129]N[178]1[164]100:[130] 5633 [151]V[170]21,9:[129]N[178]1[164]100:[130]: 5634 [139] ([194](56320) [175] 16) [179][177]0[167]5630 5635 [151]V[170]21,0 5640 [139]C(C)[178]1[167][141]50000 5642 [139]C(C)[178]2[167][141]50300 5643 [139]C(C)[178]3[167][141]50600 5650 [139] ([194](56320) [175] 16)[179][177]0 [167]5650 5651 [129]T[178]1[164]100:[130] 5700 [139][181]([187](1)[172]6)[170]1[178]1[167][141]52600: 5710 [139]R[178]C[167]6000 5800 [141]51300:M[178]1:[142] 6000 [141]52700::AG[178]SP[170]300[172][165]X(1)[170]1000[172]SD: 6100 :AN[178]020:[134]NA$(AN,8):NA$(1,1)[178]"NAME JEREMY FLYNN":[153]"LOAD";[199](142) 6102 NA$(1,2)[178]"LEBT IN DENVER SEIT 1988" 6103 NA$(1,3)[178]"VERHEIRATET,2 KINDER" 6104 NA$(1,4)[178]"GEFAENGNISS 10/22/1972" 6105 NA$(1,5)[178]"WEGEN GROBER STEUERHIN-" 6106 NA$(1,6)[178]"TERZIEHUNG" 6107 NA$(1,7)[178]"ANGESTELLTER IN PORSCHE AG" 6108 NA$(1,8)[178]"EHEM.MITGLIED DER FREIMAURER" 6121 NA$(2,1)[178]"FIRMA PORSCHE AG" 6122 NA$(2,2)[178]"GROSSTAENDIGES UNTERNEHMEN" 6123 NA$(2,3)[178]"23540 ANGESTELLTE" 6124 NA$(2,4)[178]"SPEZIALISIERT AUF VERTRIEB VON" 6125 NA$(2,5)[178]"LUXUS-AUTOMOBILEN" 6126 NA$(2,6)[178]"VERMUTLICH VERWICKELT IN" 6127 NA$(2,7)[178]"ILLEGALE TRANSPORTGESCHAEFTE" 6128 NA$(2,8)[178]"BESITZER : MICHAEL LOOPY" 6131 NA$(3,1)[178]"KLUB FREIMAURER" 6132 NA$(3,2)[178]"VEREINIGUNG VON MENSCHEN" 6133 NA$(3,3)[178]"STARKE AUFNAHMERITUALE" 6134 NA$(3,4)[178]"KEINE GEFAHR FUER DIE VER-" 6135 NA$(3,5)[178]"EINIGTEN NATIONEN" 6136 NA$(3,6)[178]"." 6137 NA$(3,7)[178]"." 6138 NA$(3,8)[178]"." 6141 NA$(4,1)[178]"NAME MICHAEL LOOPY" 6142 NA$(4,2)[178]"ALTER : 35 JAHRE" 6143 NA$(4,3)[178]"BESITZER DER PORSCHE-AG" 6144 NA$(4,4)[178]"BEZIEHUNGEN ZUR REGIERUNG" 6145 NA$(4,5)[178]"KEINE VORSTRAFEN" 6146 NA$(4,6)[178]"LEBT ZUR ZEIT IN NEW YORK" 6147 NA$(4,7)[178]"GILT ALS MILLIONAER IN FACH- 6148 NA$(4,8)="KREISEN" 6151 NA$(5,1)="GEFAENGNISS 10/22/1972" 6152 NA$(5,2)="STAATSGEFAENGNISS SEIT 1966" 6153 NA$(5,3)="STRAEFLINGE IN JAHR 1972:" 6154 NA$(5,4)="CAROL ANDERSON" 6155 NA$(5,5)="STEPHEN GRANT" 6156 NA$(5,6)="TOM J.FRANKLIN" 6157 NA$(5,7)="PETER WINTER" 6158 NA$(5,8)="JEREMY FLYNN" 6161 NA$(6,1)="NAME CAROL ANDERSON" 6162 NA$(6,2)="GEBOREN 1960 IN PALM SPRINGS" 6163 NA$(6,3)="GEFAENGNISS 10/22/1972" 6164 NA$(6,4)="VERLOBT MIT CHARLES FLEMMING" 6165 NA$(6,5)="KINDER :1" 6166 NA$(6,6)="LEBT ZUR ZEIT IN ST.LOUIS " 6167 NA$(6,7)="ARBEITET ALS FREIWILLIGE " 6168 NA$(6,8)="KRANKENSCHWESTER IN DEN SLUMS" 6171 NA$(7,1)="NAME CHARLES FLEMMING" 6172 NA$(7,2)="ALTER: 43 JAHRE" 6173 NA$(7,3)="VERLOBT MIT CAROL ANDERSON" 6174 NA$(7,4)="MITGLIED DER FREIMAURER" 6175 NA$(7,5)="ARBEITET ALS KELLNER IN" 6176 NA$(7,6)="EINEM MC DONALDS RESTAURANT" 6177 NA$(7,7)="KINDER : 1" 6178 NA$(7,8)=" " 6181 NA$(8,1)="NAME STEPHEN GRANT" 6182 NA$(8,2)="ALTER: 38 JAHRE" 6183 NA$(8,3)="GEBOREN IN MINNEAPOLIS" 6184 NA$(8,4)="EINZELKIND" 6185 NA$(8,5)="WURDE ALS GEISTIG MINDERBEMIT-" 6186 NA$(8,6)="TELT ERKLAERT" 6187 NA$(8,7)="LEBT IRGENDWO IN ALASKA" 6188 NA$(8,8)="ARBEIT UNBEKANNT" 6191 NA$(9,1)="NAME PETER WINTER" 6192 NA$(9,2)="GEBOREN : 28.1.1955" 6193 NA$(9,3)="ELTERN FRUEHZEITIG VER-" 6194 NA$(9,4)="STORBEN." 6195 NA$(9,5)="NEIGT ZU KRIMINELLEN HAND-" 6196 NA$(9,6)="LUNGEN" 6197 NA$(9,7)="GEFAENGNISS 10/22/1972" 6198 NA$(9,8)="REPUBLIKANER" 6200 NA$(10,1)="NAME TOM J.FRANKLIN" 6202 NA$(10,2)="GEBOREN IN FLORENZ " 6203 NA$(10,3)="GEFEANGNISS 10/22/1972 WEGEN" 6204 NA$(10,4)="DIEBSTAHLS EINES SCHULDSCHEINES" 6205 NA$(10,5)="SCHWESTER EMILY FRANKLIN" 6206 NA$(10,6)="BRUDER JOHN FRANKLIN" 6207 NA$(10,7)="FREUNDIN AMY DE LAUGHT" 6208 NA$(10,8)="WURDE IN SEINER WOHNUNG ERSCHOSSEN" 6211 NA$(11,1)="NAME EMILY FRANKLIN" 6212 NA$(11,2)="BRUEDER TOM J. & JOHN FRANKLIN" 6213 NA$(11,3)="TRIFFT SICH OEFTER MIT CHARLES " 6214 NA$(11,4)="FLEMMING " 6215 NA$(11,5)="SEIT 11 TAGEN VERSCHWUNDEN" 6221 NA$(12,1)="NAME JOHN FRANKLIN" 6222 NA$(12,2)="SCHWESTER EMILY FRANKLIN" 6223 NA$(12,3)="BRUDER TOM J.FRANKLIN" 6224 NA$(12,4)="ARBEIT BEI TBC ANIMALS" 6225 NA$(12,5)="SEIT 10 TAGEN VERSCHWUNDEN" 6231 NA$(13,1)="FIRMA TBC ANIMALS" 6232 NA$(13,2)="MINI-FIRMA (VERTRIEB V.HAUSTIEREN)" 6233 NA$(13,3)="ANGESTELLTE:" 6234 NA$(13,4)="JOHN FRANKLIN" 6235 NA$(13,5)="SUSAN SPRINGS" 6236 NA$(13,6)="JIM MORRIS" 6237 NA$(13,7)="KEITH PETERS" 6238 NA$(13,8)="ROBERT MC CARTHEY" 6241 NA$(14,1)="NAME KEITH PETERS" 6242 NA$(14,2)="ALTER : 53 JAHRE" 6243 NA$(14,3)="VERHEIRATET MIT SUSAN SPRINGS" 6244 NA$(14,4)="KEINE KINDER" 6245 NA$(14,5)="HAT EINMAL EINEM MAEDCHEN DAS" 6246 NA$(14,6)="LEBEN GERETTET." 6247 NA$(14,7)="ARBEITET BEI TBC ANIMALS" 6248 NA$(14,8)="KEINE VORSTRAFEN" 6251 NA$(15,1)="NAME ROBERT MC CARTHEY" 6252 NA$(15,2)="ALTER : 47 JAHRE" 6253 NA$(15,3)="GESCHIEDEN" 6254 NA$(15,4)="2 KINDER (MAX,TELLY)" 6255 NA$(15,5)="KEINE VORSTRAFEN" 6261 NA$(16,1)="NAME JIM MORRIS" 6262 NA$(16,2)="ALTER : UNBEKANNT" 6263 NA$(16,3)="LEBT IN EINEM HOTEL IN DENVER" 6264 NA$(16,4)="WAR MIT JOHN FRANKLIN BEFREUNDET" 6265 NA$(16,5)="ARBEITET BEI TBC ANIMALS" 6266 NA$(16,6)="KEINE GESCHWISTER/VERWANDTE" 6267 NA$(16,7)="KEINE VORSTRAFEN" 6271 NA$(17,1)="HOTELS DENVER" 6272 NA$(17,2)="-------------" 6273 NA$(17,3)="BLUE CRYSTAL" 6274 NA$(17,4)="4 JAHRESZEITEN" 6275 NA$(17,5)="GRANDHOTEL" 6276 NA$(17,6)="MEN MASTERS" 6281 NA$(18,1)="HOTEL BLUE CRYSTAL" 6282 NA$(18,2)=" " 6283 NA$(18,3)="LIEGT UNTER DATENSCHUTZ" 6291 NA$(19,1)="HOTEL 4 JAHRESZEITEN" 6292 NA$(19,2)=" " 6293 NA$(19,3)="LIEGT UNTER DATENSCHUTZ" 6301 NA$(20,1)="HOTEL GRANDHOTEL" 6302 NA$(20,2)=" " 6303 NA$(20,3)="LIEGT UNTER DATENSCHUTZ" 7000 PRINT"[147] CIA - TERMINAL 373/2972":TI$="000000" 7001 PRINT" -----------------------" 7010 PRINT"[158]":A$="SEARCH FOR":GOSUB41000 :PRINT"[145]";:OPEN1,0 7011 INPUT#1,A$:CLOSE1 7100 IFA$="HOTEL MEN MASTERS"THEN10000 7110 FORT =1TO20:IFNA$(T,1)=A$THENL=T:T=0:GOSUB40000:GOTO7010 7120 NEXT 7130 PRINT"":A$="UNGENUEGENDE ANGABE ODER UNBEKANNTES":GOSUB41000:PRINT 7131 A$="OBJEKT...":GOSUB41000:GOTO7010 10000 AG=AG*TI*RG/100000 10010 IFAG<35000THENUR$="ABSOLUTE [211]PITZE !!!!!!!!!!!!! ":GOTO10100 10011 IFAG<40000THENUR$="EINE ECHT SUPER [204]EISTUNG !!":GOTO10100 10012 IFAG<45000THENUR$="EINE SEHR GUTE [204]EISTUNG. ":GOTO10100 10013 IFAG<50000THENUR$="EINE WIRKLICH GUTE [204]EISTUNG. ":GOTO10100 10014 IFAG<55000THENUR$="EINE GUTE [204]EISTUNG. ":GOTO10100 10015 IFAG<60000THENUR$="KEINE SCHLECHTE [204]EISTUNG. ":GOTO10100 10016 IFAG<65000THENUR$="EINE MITTELMAESSIGE [204]EISTUNG. ":GOTO10100 10017 IFAG<70000THENUR$="EINE WENIGER GUTE [204]EISTUNG. ":GOTO10100 10018 IFAG<75000THENUR$="EINE UNBEFRIEDIGENDE [204]EISTUNG.":GOTO10100 10019 IFAG<80000THENUR$="EINE SCHLECHTE [204]EISTUNG. ":GOTO10100 10020 IFAG<85000THENUR$="EINE BESCHAEMENDE [204]EISTUNG. ":GOTO10100 10021 UR="EINE SAUMAESSIGE [204]EISTUNG. ":GOTO10100 10100 GOSUB60000:PRINT""UR$ 10200 IFAG<50000THEN20000 10300 PRINT" [204]EIDER WAR DAS [193]NGEBOT AN [194]EWERBERN" 10310 PRINT" ZU VIELVERSPRECHEND,SO DASS WIR AUF" 10320 PRINT" GRUND DER [204]EISTUNGEN GEZWUNGEN WA-" 10330 PRINT" REN,ANDERE [194]EWERBER VORZUZIEHEN. ":GOTO20100 20000 REM 20010 PRINT"[196]EINE [204]EISTUNG WAR WIRKLICH HERVORRA-" 20011 PRINT" GEND,SO DASS WIR BESCHLOSSEN HABEN," 20012 PRINT" [196]ICH AUFZUNEHMEN.[200]ERZLICHEN [199]LUECK-" 20013 PRINT" WUNSCH. [195][207][196][197]:"CO$"[146]." 20100 IF(PEEK(56320) AND 16)<>0THEN20100 20110 RUN 39999 END 40000 SI=54272:POKESI+24,15:POKESI+4,80:POKESI+6,255:POKESI,100:POKESI+1,100 40100 PRINT"[147][153]":FORT=1TO8:FORN=1TOLEN(NA$(L,T)):POKESI+4,81:FORI=1TO10:NEXT 40110 POKESI+4,80:PRINTTAB(N)"[145]" ;MID$(NA$(L,T),N,1):NEXT:PRINT:NEXT:RG=RG+1 40999 POKESI+4,0:RETURN 41000 SI=54272:POKESI+24,15:POKESI+4,80:POKESI+6,255:POKESI,100:POKESI+1,100 41100 FORN=1TOLEN(A$):POKESI+4,81:FORI=1TO10:NEXT 41110 POKESI+4,80:PRINTTAB(N)"[145]" ;MID$(A$,N,1):NEXT 49999 POKESI+4,0:RETURN 50000 POKE53280,14:POKE53281,14:POKE53272,23:PRINT"[147]";:A$=CHR$(34)+CHR$(34)+CHR$(20) 50010 PRINT"[151] [146] [144][164][164] [160][151][160][160][160]"; 50020 PRINT" [172][190] [155] [146][162][162][162][162][162][162] [144][170] [163][163][163][183][183][183][183][163] [160][151][160][160][160]"; 50030 PRINT" [155] [146] [163][163][183][183][184][183][183][151][160][160][160]"; 50040 PRINT" [172] [155] [188] [187] [172] [146] [151][161] "; 50050 PRINT" [190] [146][191] [155] [188] [188] [146] [144][175][175][175][175][175][175] [151][161] "; 50060 PRINT" [155] [188] [187] [172] [144][146][170]pan-am[144][146][180] [151] "; 50070 PRINT" [187] [155] [188] [188] [144][146][170][183][183][183][183][183][183] [151] "; 50080 PRINT" [188] [146][191] [155] [188] [187] [172] [144][146][170] [151] "; 50090 PRINT" [149][162][146][191][155] [144][146][162] "; 50100 PRINT"[151] [187] [146] [149][162][162][144][146][162] "; 50110 PRINT"[151] [188] [146][191] [146] [158] "; 50120 PRINT"[151] [146] [158] "; 50130 PRINT"[151] [187] [146] [158] "; 50140 PRINT"[151] [188] [187] [149][146][191] [161][158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158] "; 50150 PRINT"[151] [188] [146] [149][191] [161][158] "; 50160 PRINT"[151] [146] [149][161][161][158] "; 50170 PRINT"[151] [172][190] [146] [149][191][146] [161][158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158] "; 50180 PRINT"[151] [146][190][149][191][146] [161][158] "; 50190 PRINT"[151] [146][190][149][191][146] [161][158] "; 50200 PRINT"[151] [146][190][149][191][146] [161][158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158] "; 50210 PRINT"[151] [146][190][149][191][146] [158] "; 50220 PRINT"[151] [146][190][149][191][146] [172][162][158] pan[160]- am "; 50230 PRINT"[151] [146][190][149][191][146] [172][190] [158]  [158]  [158] [163][163][163][163][163][163][163][163]  [158]  [158]  [158] "; 50240 PRINT"[151][146][190][149][191][146] [161] [158] [159] [158] "; 50250 PRINT"[149][162][146] [188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162] 50260 [151]2023,226:[151]56295,9 50270 [142] 50300 [151]53280,14:[151]53281,14:[151]53272,23:[153]"LOAD";:A$[178][199](34)[170][199](34)[170][199](20) 50310 [153]"PRINT WAIT GET WAIT 50320 PRINT"[153] [146] [163][163][183][183][163][163] [161] [187][172] [187][172] [187] [146] 50330 [153]"PRINT LOG COS WAIT TAB(TAB(TAB( GET WAIT 50340 PRINT"[153] [146] [144][164][164][164] [161] [190][188] [190][188] [190] [146] 50350 [153]"PRINT LOG COS LOG WAIT STOP+ GET RND* RND* RND WAIT 50360 PRINT"[153] [146] [158] c o k e [146] [161] [146] 50370 [153]"PRINT LOG COS LOG WAIT LIST WAIT GET COSLOG COSLOG COS WAIT 50380 PRINT"[153] [146] [155] [172][187] [162] [172][187] [162] [146] [172] [187][172] [187][172] [187] [146] 50390 [153]"PRINT LOG COS LOG WAITRND LIST WAIT  WAIT 50400 PRINT"[153] [146][161] [155] [188][190] [146][162] [188][190] [146][162] [146] [188] [190][188] [190][188] [190] [146] 50410 [153]"PRINT LOG COS LOG WAITGET LIST *RND NEW *RND NEW WAIT * RND* RND* RND WAIT 50420 PRINT"[153] [146][161] [155] [146]  [146] 50430 [153]"PRINT LOG COS LOG WAITGET LIST LOGCOSPOKE  COSLOG WAIT 50440 PRINT"[153] [146][161] [155] [172][187][151] [160] [187][172] [187] [146][162][162][162]"; 50450 PRINT"[153] [188] [190] [188] [146][161] [155] [151] [158] [151] [158] [151] [158] [151] [158] [151] [160] [155] "; 50460 PRINT"[153] [146][161] [155] [188][190][151][160]  [190][188][155] [144] [155] [144] [155] [144] "; 50470 PRINT"[153] [188] [190] [188] [146][161] [155] [172][187][151][160] [158] [151] [158] [151] [158] [151] [160][187][172][155] "; 50480 PRINT"[153] [146][161] [155] [151][160] [160] [155] [144] [155] [144] [155] "; 50490 PRINT"[153] [188] [190] [188] [146][161] [155] [151][160]  [151] [160] [190][188][155] "; 50500 PRINT"[146][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"; 50510 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"; 50520 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"; 50530 PRINT" "; 50540 PRINT" "; 50550 PRINT"  50560 [151]2023,160:[151]56295,6 50570 [142]: 1990 BY AO SOFT. ([171]3469[171]) 50600 [151]53280,14:[151]53281,14:[151]53272,23:[153]"LOAD";:A$[178][199](34)[170][199](34)[170][199](20) 50610 [153]" 50620 PRINT" [162] [183][183][184][184][184][183][183][183][163][163][163] 50630 [153]" COS WAITGET 50640 PRINT" [190] [146][187] [163][163][163][163][163][183][183][183][183][183][163][163][163][163][163] [162]"; 50650 PRINT" [172] [146][162] [163][163][183][183][163][163] [172][190] "; 50660 PRINT"[146] [149][172]  [149] [146][162][162] [162] "; 50670 PRINT"[146] [149][190] [188][146][187] [190]  "; 50680 PRINT"[146] [149][172] [188][146][162][187] [163][183][184][183][163][149][190] "; 50690 PRINT"[146] [190][146][187] [172] [146] [190] "; 50700 PRINT"[190] [146][162][187] [188][146] [190] "; 50710 PRINT" [188][187] [146][187][172] "; 50720 PRINT" [188][187] [161] "; 50730 PRINT" [188][187] [188][191] "; 50740 PRINT" [188][187] [191] "; 50750 PRINT" [188][187] [191] "; 50760 PRINT"  sprite [149] [155] [149] [191][187] "; 50770 PRINT"[158] [149] [155]  [155]  [155] [149] [188][162] "; 50780 PRINT"[158] [190][190][190][190][190][190][190][190][190][190][190][190][190][190][149] [155] [149] [191] "; 50790 PRINT"[158] [187][187][187][187][187][187][187][187][187][187][187][187][187][187][149] [155]  [155]  [155] [149] [146][162][191][162]"; 50800 PRINT"[158] [152] [155] [149] "; 50810 PRINT"[158] [190][190][190][190][190][190][190][190][190][152] [144] [152] [144] [152] [144] [152] [144] [152] [144] [152] [144] [152] [155]  [155] [149] "; 50820 PRINT"[158] [187][187][187][187][187][187][187][187][187][152] [155] [149] [153] "; 50830 PRINT"[158] [152] [155]  [155] [153][163][163][163][163][163][163][163][163][163][163][163][163][163]"; 50840 PRINT"[158] [190][190][190][190][190][190][190][190][190][152] [144] [152] [144] [152] [144] [152] [144] [152] [144] [152] [144] [152] [155] [153] [190][188] [188] [190][188] [190][188] [190]"; 50850 PRINT"[158]  [158] [152] [155]  [155] [153] [190][188] [188] [190][188] [190][188]  50860 [151]2023,254:[151]56295,13 50870 [142]: 1990 BY AO SOFT. ([171]3435[171]) 51000 [151]53280,14:[151]53281,14:[151]53272,23:[153]"LOAD";:A$[178][199](34)[170][199](34)[170][199](20) 51010 [153]" mAP OF nORTH-eAST aMERICA 51020 PRINT" 51030 [153]"VERIFY WAIT RND NEWRND 51040 PRINT" [172][146] [187][146][187]  [146] 51050 [153]" *WAIT NEW  WAITNEWLOGWAITRND 51060 PRINT" [146][161] [190][188]  [188][146] 51070 [153]" WAITGET RND WAITRND 51080 PRINT" [146][187]  [146] [188][146][187] 51090 [153]" LOGLOGWAITRNDLOG *WAIT GET LOGWAIT 51100 PRINT" [146] [187] [172][146] [190] [188][146] 51110 [153]" WAITRNDCOS NEWWAIT RND NEWWAIT 51120 PRINT" [188][188][146] 51130 [153]" LOGWAITNEW WAIT 51140 PRINT" [146][190] 51150 [153]" WAITCOS 51160 PRINT" [172][146] 51170 [153]" WAIT 51180 PRINT" [172][146] 51190 [153]" *WAIT 51200 PRINT" [146] 51210 [153]" WAIT 51220 PRINT" [146][187] 51230 [153]" WAIT(null)TANDORT: 51240 PRINT"[149] [146][161][163][163][163][163][163][163][163][163][163] 51250 [153]"VERIFY *WAIT ";C$(C);"" 51260 [142]: 1990 BY AO SOFT. ([171]3161[171]) 51300 [151]53280,0:[151]53281,0:[151]53272,23:[153]"LOAD";:A$[178][199](34)[170][199](34)[170][199](20) 51310 [153]"SYS{``````````````````````````````````````SYS{"; 51320 [153]"}SYSSPC(SPC(SPC(SPC(LOGRND*WAITCOS SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(}"; 51330 [153]"}SYSSPC(SPC(SPC(SPC( GETWAITGET **RNDWAITRNDGET*RNDWAITRNDSYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(}"; 51340 [153]"}SYSSPC(SPC(SPC(SPC( GETWAITGET GETWAITGETGETWAITGETGETLOGCOSWAITCOSSYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(}"; 51350 [153]"}SYSSPC(SPC(SPC(SPC( LOGCOS NEWNEWWAIT GETWAITGET SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(}"; 51360 [153]"}SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC( COSLOGWAIT *RND GETWAITGET }"; 51370 [153]"}SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(GETLOGCOSWAITGET**RNDWAITGET**RNDWAITRNDGET*RNDWAITRNDLOGRND*WAITCOS**NEWWAITCOS RNDWAITGET }"; 51380 [153]"}SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(GETWAITGETGETWAITGETLOGLOGCOSWAITGETGET*NEWWAITCOSGETWAITGETGETWAITGET GETWAITGET NEWRNDWAITRND GETWAITGET }"; 51390 [153]"}SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(LOGCOSLOGCOS*NEWCOSWAITCOS NEWNEWWAIT LOGCOSLOGCOS NEWWAITCOSLOGNEWNEWWAIT LOGNEWNEWWAITCOS}"; 51400 [153]"}SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(}"; 51410 [153]"(null)SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC((null)"; 51420 [153]"}SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(} pLAN ANSEHEN }SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(}"; 51430 [153]"}SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(} }SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(}"; 51440 [153]"}SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(} hOTELS ABFRAGEN }SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(}"; 51450 [153]"}SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(} }SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(}"; 51460 [153]"}SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(} rEISEN }SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(}"; 51470 [153]"}SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(} }SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(}"; 51480 [153]"}SYSSPC(SPC(OR``````>``````````````````>``````^SYSSPC(SPC(}"; 51490 [153]"}SYSSPC(SPC(}OPENbISHER BESUCHTE sTAEDTE : }SYSSPC(SPC(}"; 51500 [153]"}SYSSPC(SPC(}OPENAUSGEGEBENES gELD: }SYSSPC(SPC(}"; 51510 [153]"}SYSSPC(SPC(}OPENGEFAHRENE kILOMETER: }SYSSPC(SPC(}"; 51520 [153]"}SYSSPC(SPC(}OPENaGENTENZEIT: }SYSSPC(SPC(}"; 51530 [153]"}SYSSPC(SPC(/````````````````````````````````EXPSYSSPC(SPC(}"; 51540 [153]"}SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(}"; 51550 [153]"SYS{``````````````````````````````````````SYS 51560 POKE2023,91:POKE56295,7 51570 RETURN: 1990 BY AO SOFT. (-3554-) 51600 POKE53280,0:POKE53281,0:POKE53272,23:PRINT"[147]";:A$=CHR$(34)+CHR$(34)+CHR$(20) 51610 PRINT" iCH BIN JETZT AUF DEM bAHNHOF.bITTE 51620 [153]" ENTSCHEIDE dICH,WELCHEN zUG dU NEHMEN 51630 PRINT" WILLST ! 51640 [153]"  "; 51650 [153]"WAIT  NEW RND * RND *  "; 51660 [153]"WAIT  WAITGET WAITLOG NEW WAITGETRND COS NEW **RND WAITSINGET*WAITRND    "; 51670 [153]"WAIT  WAITNEWRNDGET WAITGET GETWAITGET GETWAITGET GETWAITGETCOSWAITGET GET WAITGET    "; 51680 [153]"WAIT  LOGNEWCOSSINWAITSINLOGNEWGETLOGNEWCOSGETLOGNEWCOSWAITGET WAITGET GET WAITGETea "; 51690 [153]"WAIT POKECLOSEWAIT  POKECLOSE "; 51700 [153]"WAIT POKECLOSEWAIT        POKECLOSE    "; 51710 [153]"WAIT POKECLOSEWAIT        POKECLOSE    "; 51720 [153]"WAIT POKECLOSEWAIT  POKECLOSE WAITNEW*NEWNEWNEW*"; 51730 [153]" POKECLOSEWAIT  POKECLOSE GET GET"; 51740 [153]"WAIT POKECLOSEWAIT  POKECLOSE GET WAITNEWGET"; 51750 [153]"WAIT POKE WAIT  POKECLOSE GET GET"; 51760 [153]"WAIT LIST "; 51770 [153]"WAIT eS FAHREN FOLGENDE zUEGE: 51780 PRINT" 51790 [153]" 51800 PRINT" 51810 [153]" 51820 PRINT" 51830 [153]" 51840 PRINT" 51850 [153]" wELCHEN SOLL ICH BUCHEN ? ..." 51860 [142]: 1990 BY AO SOFT. ([171]3147[171]) 52000 [151]53280,0:[151]53281,0:[151]53272,23:[153]"LOAD";:A$[178][199](34)[170][199](34)[170][199](20) 52010 [153]" iCH BESUCHE JETZT DIE BEKANNTESTEN 52020 PRINT" hOTELS DER sTADT,UND ERKUNDIGE MICH 52030 [153]" NACH rEBECCA.... kANN ETWAS DAUERN ! 52040 PRINT" 52050 [153]" VERIFYLOG WAITCOS 52060 PRINT" [172] [146][187] 52070 [153]" * WAITRND 52080 PRINT" [188] [146][190] 52090 [153]" LIST *NEWRND NEWNEW WAIT 52100 PRINT"  [190] [188][146][162] [172][162] [190] [146] 52110 [153]" VERIFY*LIST WAIT 52120 PRINT" [149][161][155] [158] [149] [162] [158] [155] [158] [155] [158] [149] [162] [158] [149] [162] [158] [149] [162] [158] [155] [149][146][161] 52130 [153]" LOGLIST SYS VERIFYLOGWAITNEWCOSSYS LIST SYS LIST SYS VERIFYLOGWAITNEWCOSSYS VERIFYLOGWAITNEWCOSSYS VERIFYLOGWAITNEWCOSSYS LIST VERIFYWAITGET 52140 PRINT" [155] [146] 52150 [153]" VERIFYGETLIST SYS VERIFY NEW SYS VERIFY NEW SYS LIST SYS LIST SYS VERIFY NEW SYS VERIFY NEW SYS LIST VERIFYWAITGET 52160 PRINT" [161][155] [158] [149][188][146][162][190][158] [149][188][146][162][190][158] [155] [158] [155] [158] [149][188][146][162][190][158] [149][188][146][162][190][158] [155] [149][146][161] 52170 [153]" LIST WAIT 52180 PRINT"  [146] 52190 [153]"  WAIT 52200 PRINT" [152][172] [146][187] 52210 [153]" CLOSE 52220 PRINT" [160] 52230 [153]" iCH BIN GERADE IM hOTEL nUMMER 52240 PRINT" 52250 [153]"" 52260 [142]: 1990 BY AO SOFT. ([171]3182[171]) 52300 [151]53280,0:[151]53281,0:[151]53272,23:[153]"LOAD";:A$[178][199](34)[170][199](34)[170][199](20) 52310 [153]" hALLO,ICH BIN DER eMPFANGS-cHEF DIESES 52320 PRINT" NOBLEN hAUSES.iCH GLAUBE,ICH HABE DIE 52330 [153]"fRAU,DIE sIE MIR BESCHRIEBEN HABEN SCHON"; 52340 [153]"GESEHEN.sIE WAR HIER UM 52350 PRINT"sIE SAGTE SIE WOLLE NACH 52360 [153]" bEEHREN sIE UNS BALD WIEDER !!! 52370 PRINT" [153][162][162][187] [151][172][162][162][146][162][187] 52380 [153]"CLRRNDNEW*RNDNEW*RNDNEW*RNDNEW*RNDNEW*RNDNEW*RNDWAIT PRINTCOS WAITRND POKESINWAITCOS LOGSIN 52390 PRINT"[156][161][146] [161][161][146] [161][161][146] [161][161][146][172][156][161][161][146] [161][161][146][187][156][161][161][146] [129][161] [187][172] [146][161] [172][162][162][162][162][162][187][146] 52400 [153]"CLRRNDNEW*RNDNEW*RNDNEW*RNDNEW*RNDNEW*RNDNEW*RNDWAIT FORLOG * WAITCOS GETSYS*NEWNEWNEWRNDGETWAIT 52410 PRINT"[156][161][146] [161][161][146][187][156][161][161][146] [161][161][146] [161][161][146][187][156][161][161][146] [161][161][146] [129] [188][172] [146] [161][158][161][191][188][188][161][161][146] 52420 [153]"CLRRNDNEW*RNDNEW*RNDNEW*RNDNEW*RNDNEW*RNDNEW*RNDWAIT FORRNDWAITNEWCOS*WAIT GETSYS*GETGETWAITLOGRNDGETWAIT 52430 PRINT"[156][161][146][187][156][161][188][154][172][152][162][154][162][162][162][162][187][156][190][161][146][172][156][161][161][146][187][156][161][161][146] [190] [129]  [146][162] [161][158][188][188][190][190][190][161][146] 52440 [153]"CLRNEWNEWNEWWAITCOSCONT NEW NEW CLRWAITLOGNEWNEWNEWNEWNEWNEWNEW * RND LOGWAIT LOGWAITNEWNEWNEWNEWNEWCOSWAIT 52450 PRINT" [152][161][154] [146][162][152] [146][161]  [146][162][162][191][146][172][162] [146] 52460 [153]"VERIFY "; 52470 [153]" "; 52480 [153]"SYS "; 52490 [153]" WAITNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW*NEW"; 52500 [153]" WAIT*NEWRND WAITGETNEWNEW WAITSINNEWCOS WAIT*NEWCOS WAITGETNEWSIN GET "; 52510 [153]" GET*COS WAITGET GET GET WAITGET WAITGET GET "; 52520 [153]" WAIT*SIN WAITGETNEWCOS GET WAIT*NEW WAITGETNEWCOS GET "; 52530 [153]" GET SIN WAITGETNEWNEW SINNEWRND WAITLOGNEWRND WAITGET GET "; 52540 [153]" "; 52550 [153]"CLR  52560 POKE2023,160:POKE56295,4 52570 RETURN 52600 PRINT"[147]":POKE53280,0:POKE53281,0 52610 PRINT" [196]ER [214]ERBINDUNGSCOMPUTER TEILT MIT,DASS" 52611 PRINT" [210]EBECCA IN "C$(R)" GESEHEN WURDE." 52620 IF(PEEK(56320) AND 16)<>0THEN52620 52630 RETURN 52700 POKE53280,0:POKE53281,0:POKE53272,23:PRINT"[147]";:A$=CHR$(34)+CHR$(34)+CHR$(20) 52710 PRINT" [217][207] !! 52720 [153]" -------- 52730 PRINT" 52740 [153]" PRINTnACH LANGEM sUCHEN HAST dU ENDLICH 52750 PRINT" 52760 [153]" rEBECCA GEFUNDEN.bRAVO! aBER JETZT 52770 PRINT" 52780 [153]" FAENGT DIE aRBEIT ERST RICHTIG AN.sIE 52790 PRINT" 52800 [153]"SAGT,DASS sIE DEN rING MIT DEM mIKROFILM"; 52810 [153]" 52820 PRINT" AN EINEN mANN nAMENS jEREMY fLYNN [153]WEI- 52830 [153]" 52840 PRINT"TERGEGEBEN HABE.dEINE ZWEITE aUFGABE IST"; 52850 PRINT" 52860 [153]"ES NUN,MIT hILFE DES cia-cENTRAL cOMPU- 52870 PRINT" 52880 [153]" TERS ZU ERFORSCHEN,DURCH WESSEN hAENDE 52890 PRINT" 52900 [153]" DER ASCILM GEGANGEN IST. 52910 PRINT" [158][162][162][162][154][162][162][158][162][162][162] 52920 [153]" NEW NEWNEWNEWNEWNEWNEWNEWNEW WAITNEW 52930 PRINT" [161] [146]  [146][161] 52940 [153]" NEW WAITNEWNEWNEWNEWNEWNEWNEWNEW NEWWAIT 52950 PRINT" [162][162][162][162][162][162][162][162][146]" 52960 IF(PEEK(56320) AND 16)<>0THEN52960 52970 RETURN 60000 POKE53280,6:POKE53281,6:POKE53272,23:PRINT"[147]";:A$=CHR$(34)+CHR$(34)+CHR$(20) 60010 PRINT" 60020 [153]" **RNDWAITRND GETWAITGET 60030 PRINT" [188][188][146][162] [161][146][161][161][146][161][161][172][187][146][187][172][172][187][146][187][161][172][187][146][187] [161][146][161] 60040 [153]" *RNDGETWAITGETGETWAITGETGETWAITGETGETLOGCOSWAITCOSGET*NEWWAITCOSGETWAITGET 60050 PRINT" [162][162][146] [162][162][146][190][161][146][161] [162][162][146] [188][190] [188][190] 60060 [153]" SYSFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE 60070 PRINT" [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184] 60080 [153]" 60090 PRINT" [144]dU HAST DEN tEST HINTER dIR.aLLE aUF- 60100 [153]" 60110 PRINT" GABEN SIND GELOEST WORDEN.aUFGRUND 60120 [153]" 60130 PRINT" [196]EINER [197]RGEBNISSE KANN MAN SAGEN : 60140 [153]" 60150 PRINT" DAS WAR 60160 [153]" 60170 PRINT" 60180 [153]" 60190 PRINT" 60200 [153]" 60210 PRINT" 60220 [153]" 60230 PRINT" 60240 [153]" 60250 PRINT"" 60260 RETURN